home *** CD-ROM | disk | FTP | other *** search
/ My Neighborhood / My Neighborhood.iso / mac / MacFiles / Zoo1.Dxr / 00061_done.ls < prev    next >
Encoding:
Text File  |  1997-11-18  |  1.6 KB  |  74 lines
  1. on mouseDown
  2.   autoHilite()
  3. end
  4.  
  5. on action
  6.   global LcurrentWeight, RcurrentWeight, incCount, tempcount, homeV
  7.   set one to 1
  8.   set tCnt to 0
  9.   repeat with T = 24 to 28
  10.     if the locV of sprite T <> homeV then
  11.       set tCnt to tCnt + 1
  12.     end if
  13.   end repeat
  14.   if tCnt > 1 then
  15.     set one to 0
  16.   end if
  17.   set incCount to incCount + 1
  18.   if LcurrentWeight = RcurrentWeight then
  19.     if tempcount < 3 then
  20.       if one = 1 then
  21.         puppetSprite(2, 0)
  22.         puppetSprite(3, 0)
  23.         puppetSprite(4, 0)
  24.         puppetSprite(6, 0)
  25.         puppetSprite(11, 0)
  26.         puppetSprite(12, 0)
  27.         repeat with T = 14 to 17
  28.           puppetSprite(T, 0)
  29.         end repeat
  30.         repeat with T = 24 to 28
  31.           puppetSprite(T, 0)
  32.         end repeat
  33.         WEASELSpeak("Good Job")
  34.         go("Go back")
  35.       else
  36.         if incCount = 2 then
  37.           go("show triangle")
  38.         else
  39.           WEASELSpeak("try again")
  40.         end if
  41.       end if
  42.     else
  43.       if one = 0 then
  44.         puppetSprite(2, 0)
  45.         puppetSprite(3, 0)
  46.         puppetSprite(4, 0)
  47.         puppetSprite(6, 0)
  48.         puppetSprite(11, 0)
  49.         puppetSprite(12, 0)
  50.         repeat with T = 14 to 17
  51.           puppetSprite(T, 0)
  52.         end repeat
  53.         repeat with T = 24 to 28
  54.           puppetSprite(T, 0)
  55.         end repeat
  56.         WEASELSpeak("Good Job")
  57.         go("Go back")
  58.       else
  59.         if incCount = 2 then
  60.           go("show triangle")
  61.         else
  62.           WEASELSpeak("try again")
  63.         end if
  64.       end if
  65.     end if
  66.   else
  67.     if incCount = 2 then
  68.       go("show triangle")
  69.     else
  70.       WEASELSpeak("try again")
  71.     end if
  72.   end if
  73. end
  74.